tic
folder = uigetdir;

dirList = dir([folder '\*.wrl']);

for i = 1:length(dirList)
    if ~dirList(1).isdir
        fileName = fullfile(folder,dirList(i).name);
     
        dirList(i).tocke = ucitaj(fileName);
     
    end
end
toc